// Npc: /d/shaolin/npc/seng-bing2.c
// Date: YZC 96/01/19

#include <ansi.h>

inherit NPC;

void create()
{
        set_name("执法僧兵", ({
                "seng bing",
                "seng",
                "bing",
        }));
        set("long",
                "他是一位身材高大的中年僧人，两臂粗壮，膀阔腰圆。他手持兵\n"
                "刃，身穿一袭灰布镶边袈裟，似乎有一身武艺。\n"
        );

        set("gender", "男性");
        set("attitude", "peaceful");
        set("class", "bonze");

        set("age", 25);
        set("shen_type", 1);
        set("str", 25);
        set("int", 20);
        set("con", 20);
        set("dex", 25);
        set("max_qi", 500);
        set("max_jing", 300);
        set("neili", 500);
        set("max_neili", 500);
        set("jiaji", 50);
        set("combat_exp", 10000);
        set("score", 1);

        set("chat_chance", 20);
        set("chat_msg", ({
                (: random_move :)
        }) );

        set_skill("force", 40);
        set_skill("hunyuan-yiqi", 40);
        set_skill("dodge", 40);
        set_skill("shaolin-shenfa", 40);
        set_skill("unarmed", 40);
        set_skill("banruo-zhang", 40);
        set_skill("parry", 40);
        set_skill("blade", 40);
        set_skill("cibei-dao", 40);

        map_skill("force", "hunyuan-yiqi");
        map_skill("dodge", "shaolin-shenfa");
        map_skill("unarmed", "banruo-zhang");
        map_skill("parry", "cibei-dao");
        map_skill("blade", "cibei-dao");

        setup();

        carry_object("/d/shaolin/obj/jiedao")->wield();
        carry_object("/d/shaolin/obj/cloth")->wear();
}


void init()
{
        object me, ob;
        ob = this_player();
        me = this_object();
        
        ::init();

        if( interactive(ob) && !query("no_fight", environment(ob)) )
        {
                if( query("guilty", ob) == 1 )
                {
                        if ( random(2) ==1 )
                        command("say 你这佛门败类，哪里逃！ 还不速到戒律院领罪！\n");
                        me->set_leader(ob);
                        remove_call_out("fight_ob");
                        call_out("fight_ob", 1, ob); 
                }       
                if( query("guilty", ob) >= 2 )
                {
                        if ( random(2) ==1 )
                        command("say 戒律院玄痛大师请你去陈述此次下山经过 ！\n");
                        me->set_leader(ob);
                }       
        }
        else if( query("no_fight", environment(ob)))me->set_leader(0);
}